(Fgarbage_collect): Block input around most of the function.

diff --git a/src/alloc.c b/src/alloc.c
index 0030de4842c30c11c3c775ac837f812698f4b40b..029f205ea32b03f7943376f3d768815cb5874695 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1730,6 +1730,8 @@ Garbage collection happens automatically if you cons more than\n\
   if (garbage_collection_messages)
     message1_nolog ("Garbage collecting...");
 
+  BLOCK_INPUT;
+
   shrink_regexp_cache ();
 
   /* Don't keep undo information around forever.  */
@@ -1873,6 +1875,8 @@ Garbage collection happens automatically if you cons more than\n\
   XUNMARK (buffer_defaults.name);
   XUNMARK (buffer_local_symbols.name);
 
+  UNBLOCK_INPUT;
+
   /* clear_marks (); */
   gc_in_progress = 0;